home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g38.bas < prev    next >
BASIC Source File  |  1991-10-18  |  437b  |  17 lines
  1. 100 ' G38 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 FOR L=1 TO 3
  4. 130   READ C,H
  5. 140   FOR I=0 TO 360 STEP .5!
  6. 150     T=I/180*PI:U=(I+30)/180*PI
  7. 160     Z=COS(T*10)*50+110
  8. 170     S=Z*1.5!:F=90
  9. 180     X0=S*COS(U)+320:Y0=S*SIN(U)+239
  10. 190     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  11. 200     IF I+F=INT((I+F)/36)*36 THEN C=H-C
  12. 210     LINE(X0,Y0)-(X1,Y1),PSET,%C
  13. 220   NEXT I
  14. 230   FOR D=1 TO 2800:NEXT D
  15. 240 NEXT L
  16. 250 DATA 5,9,3,5,0,0
  17.